home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr37 / blt300.zip / BLT.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-04-02  |  4KB  |  243 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     String   STRING001
  21.     String   STRING002
  22.     String   STRING003
  23.     String   STRING004
  24.     String   STRING005
  25.     String   STRING006
  26.     String   STRING007
  27.     String   STRING008
  28.  
  29. ;------------------------------------------------------------------------------
  30.  
  31.     STRING007 = Date()
  32.     STRING003 = U_Name()
  33.     GetToken STRING008
  34.     If (Upper(STRING008) == "P") Goto LABEL005
  35.     Cls
  36.     FOpen 1, PPEPath() + "BLT" + STRING008 + ".DAT", 2, 0
  37.     Delay 1
  38.     STRING004 = 0
  39.     :LABEL001
  40.     If (Ferr(1)) Goto LABEL002
  41.     FGet 1, STRING005
  42.     STRING004 = STRING004 + 1
  43.     Goto LABEL001
  44.     :LABEL002
  45.     Cls
  46.     DispFile PPEPath() + "BLT" + STRING008 + ".MNU", 0
  47.     InputStr "(Q)uit, (1-" + String(STRING004) + "), Bulletin List Command", STRING001, 14, 2, "1234567890Qq", 64
  48.     If (((STRING001 >= 1) && (STRING001 <= STRING004)) && (Upper(STRING001) <> "Q")) Then
  49.         Cls
  50.         DispFile ReadLine(PPEPath() + "BLT" + STRING008 + ".DAT", STRING001), 2 + 1 + 4
  51.         Wait
  52.         STRING001 = "q"
  53.         Goto LABEL002
  54.     ElseIf (Upper(STRING001) == "Q") Then
  55.         End
  56.     Endif
  57.     End
  58.     :LABEL003
  59.     FClose 1
  60.     FClose 2
  61.     FClose 3
  62.     FClose 4
  63.     FClose 5
  64.     FClose 6
  65.     FClose 7
  66.     Return
  67.     STRING006 = -1
  68.     While ((STRING006 == -1)) STRING006 = Inkey()
  69.     Return
  70.     :LABEL004
  71.     AnsiPos 78, GetY()
  72.     PrintLn "@X1F│@X0F  "
  73.     Return
  74.     :LABEL005
  75.     FOpen 1, PPEPath() + "PUBLIC.DAT", 2, 0
  76.     Cls
  77.     PrintLn "@X0EBULLETIN.PPE@X0F V2.00 by Mukunda Modell"
  78.     PrintLn "@X0FThe Round Table BBS 417-683-4953"
  79.     PrintLn "@X0CREGISTERED@X0F to The Round Table BBS!"
  80.     Newlines 2
  81.     PrintLn "@X1F┌────────────────────────────────────────────────────────────────────────────┐"
  82.     Print "@X1F│  #1    =    @X1D" + String(ReadLine(PPEPath() + "PUBLIC1", 2))
  83.     ClrEol
  84.     AnsiPos 50, GetY()
  85.     Print String(ReadLine(PPEPath() + "PUBLIC1", 1))
  86.     Gosub LABEL004
  87.     AnsiPos 1, GetY() - 1
  88.     Print "@X1F│  #2    =    @X1D" + String(ReadLine(PPEPath() + "PUBLIC2", 2))
  89.     ClrEol
  90.     AnsiPos 50, GetY()
  91.     Print String(ReadLine(PPEPath() + "PUBLIC2", 1))
  92.     Gosub LABEL004
  93.     AnsiPos 1, GetY() - 1
  94.     Print "@X1F│  #3    =    @X1D" + String(ReadLine(PPEPath() + "PUBLIC3", 2))
  95.     ClrEol
  96.     AnsiPos 50, GetY()
  97.     Print String(ReadLine(PPEPath() + "PUBLIC3", 1))
  98.     Gosub LABEL004
  99.     AnsiPos 1, GetY() - 1
  100.     Print "@X1F│  #4    =    @X1D" + String(ReadLine(PPEPath() + "PUBLIC4", 2))
  101.     ClrEol
  102.     AnsiPos 50, GetY()
  103.     Print String(ReadLine(PPEPath() + "PUBLIC4", 1))
  104.     Gosub LABEL004
  105.     AnsiPos 1, GetY() - 1
  106.     Print "@X1F│  #5    =    @X1D" + String(ReadLine(PPEPath() + "PUBLIC5", 2))
  107.     ClrEol
  108.     AnsiPos 50, GetY()
  109.     Print String(ReadLine(PPEPath() + "PUBLIC5", 1))
  110.     Gosub LABEL004
  111.     AnsiPos 1, GetY() - 1
  112.     PrintLn "@X1F└────────────────────────────────────────────────────────────────────────────┘@X0F"
  113.     Newline
  114.     InputStr "Enter a Bulletin Number or (N) to add your own", STRING001, 15, 1, "12345Nn", 64
  115.     If (Upper(STRING001) == "N") Then
  116.         Call PPEPath() + "EDIT.PPE"
  117.         Cls
  118.         DispFile PPEPath() + "TEMP.!!!", 0
  119.         Newline
  120.         FOpen 5, PPEPath() + "TEMP.!!!", 2, 0
  121.         INTEGER001 = ReadLine(PPEPath() + "FILEINFO.DAT", 1)
  122.         STRING002 = INTEGER001 + 1
  123.         If (INTEGER001 < 5) Then
  124.             Delete PPEPath() + "PUBLIC" + STRING002
  125.             FOpen 7, PPEPath() + "PUBLIC" + STRING002 + ".", 2, 0
  126.             FPutLn 7, "From: ", STRING003
  127.             FPutLn 7, "Subject: " + ReadLine(PPEPath() + "TEMP.@@@", 1)
  128.             :LABEL006
  129.             If (Ferr(5)) Goto LABEL007
  130.             FGet 5, STRING005
  131.             FPutLn 7, STRING005
  132.             Goto LABEL006
  133.             :LABEL007
  134.             Delete PPEPath() + "FILEINFO.DAT"
  135.             FOpen 6, PPEPath() + "FILEINFO.DAT", 2, 0
  136.             FPutLn 6, INTEGER001 + 1
  137.             FClose 7
  138.             Wait
  139.             Gosub LABEL003
  140.             Goto LABEL005
  141.         Else
  142.             Delete PPEPath() + "PUBLIC1"
  143.             FOpen 7, PPEPath() + "PUBLIC1.", 2, 0
  144.             FPutLn 7, "From: ", STRING003
  145.             FPutLn 7, "Subject: " + ReadLine(PPEPath() + "TEMP.@@@", 1)
  146.             :LABEL008
  147.             If (Ferr(5)) Goto LABEL009
  148.             FGet 5, STRING005
  149.             FPutLn 7, STRING005
  150.             Goto LABEL008
  151.             :LABEL009
  152.             Delete PPEPath() + "FILEINFO.DAT"
  153.             FOpen 6, PPEPath() + "FILEINFO.DAT", 2, 0
  154.             FPutLn 6, "1"
  155.             FClose 6
  156.             Wait
  157.             Gosub LABEL003
  158.             Goto LABEL005
  159.         Endif
  160.     ElseIf ((STRING001 >= 1) && (STRING001 <= 5)) Then
  161.         Cls
  162.         DispFile ReadLine(PPEPath() + "PUBLIC.DAT", STRING001), 0
  163.         Wait
  164.         Goto LABEL005
  165.     Endif
  166.     End
  167.  
  168. ;------------------------------------------------------------------------------
  169. ;
  170. ; Usage report (before postprocessing)
  171. ;
  172. ; ■ Statements used :
  173. ;
  174. ;    3       End
  175. ;    6       Cls
  176. ;    5       ClrEol
  177. ;    4       Wait
  178. ;    20      Goto 
  179. ;    9       Let 
  180. ;    10      Print 
  181. ;    6       PrintLn 
  182. ;    10      If 
  183. ;    4       DispFile 
  184. ;    7       FOpen 
  185. ;    9       FClose 
  186. ;    3       FGet 
  187. ;    8       FPutLn 
  188. ;    4       Delete 
  189. ;    2       InputStr 
  190. ;    7       Gosub 
  191. ;    3       Return
  192. ;    1       Delay 
  193. ;    2       Newline
  194. ;    1       Newlines 
  195. ;    1       GetToken 
  196. ;    1       Call 
  197. ;    11      AnsiPos 
  198. ;
  199. ;
  200. ; ■ Functions used :
  201. ;
  202. ;    2       -
  203. ;    52      +
  204. ;    5       -
  205. ;    4       ==
  206. ;    1       <>
  207. ;    1       <
  208. ;    2       <=
  209. ;    2       >=
  210. ;    8       !
  211. ;    3       &&
  212. ;    4       Upper()
  213. ;    3       Ferr()
  214. ;    1       Date()
  215. ;    1       U_Name()
  216. ;    1       Inkey()
  217. ;    11      String()
  218. ;    29      PPEPath()
  219. ;    15      ReadLine()
  220. ;    11      GetY()
  221. ;
  222. ;------------------------------------------------------------------------------
  223. ;
  224. ; Analysis flags : C
  225. ;
  226. ; C - Call child PPE ■ 3
  227. ;     This is usually normal, but may be a tricky way to launch some
  228. ;     sysop-only commands.
  229. ;     ■ Search for : CALL
  230. ;
  231. ;------------------------------------------------------------------------------
  232. ;
  233. ; Postprocessing report
  234. ;
  235. ;    0       For/Next
  236. ;    0       While/EndWhile
  237. ;    5       If/Then or If/Then/Else
  238. ;    0       Select Case
  239. ;
  240. ;------------------------------------------------------------------------------
  241. ;                 AEGiS Corp - Break the routines, code against the machines!
  242. ;------------------------------------------------------------------------------
  243.